<% dim adoResModel dim lngYearId dim lngModelId Set adoResModel = CreateObject("ADODB.Recordset") adoResModel.CursorLocation = 3 ' adUseClient lngMakeId = Request("MakeId") lngYearId = Request("YearId") lngModelId = Request("ModelId") if lngMakeId="" then lngMakeId=0 if lngYearId="" then lngYearId=0 if lngModelId="" then lngModelId=0 'Get year by make id strSQL = "SELECT distinct Models.* FROM Models, Product_Make WHERE MakeId = " & lngMakeId & " and ((FromYearID <= " & lngYearID & " and ToYearID >= " & lngYearID & ") or (FromYearID = " & lngYearID & ")) and Product_Make.ModelID = Models.ModelID order by Models.ModelName" Set adoResModel = objConn.Execute(strSQL) %>

Select Model <% do while not adoResModel.eof %> <%if adoResModel.Fields("ModelId").value = clng(lngModelId) then%> " selected><%=RTrim(Server.HTMLEncode(adoResModel("ModelName") & " "))%> <%else%> "><%=RTrim(Server.HTMLEncode(adoResModel("ModelName") & " "))%> <%end if%> <%adoResModel.MoveNext%> <%Loop%>

<% 'release object adoResModel.close set adoResModel = nothing %>